# simple bytebeat, run and redirect to aplay

~32

shift: # X, N
  $0

  @'
    $<0 $<0 2 /
    $>0 $>0 --
  .

  $<0 $<0
.

~i

bytebeat1: # this one is from Anarch
  $i $i 4 / 32 % shift
  $i $i 32 / 32 % shift +x12 &
  | 2 *
  $i 2048 / |
  ->

  $i ++ $:i
.

0 $:i

50000 @'
  bytebeat1 # you can possibly try different bytebeat functions
  --
.
~0
